Relazione voto informatica
Ci e’ stato posto il problema di creare un programma in linguaggio Pascal che,dato un voto intero in input visualizzi il relativo giudizio.
In questo problema esiste una sola variabile, quella che puo’ assumere i valori da 0 a 10.Questi valori sono costanti e vengono immessi dall’utente. Abbiamo compilato il programma usando:
- L’espressione booleana RIPETI….FINCHÈ
- L’espressione booleana
WHILE…DO.
La variabile e’ stata chiamata x.
Pseudocodice del RIPETI….FINCHÈ
INIZIO
Ripeti
Chiedi (“inserisci la valutazione (da 0 a 10));
Leggi (x);
Se x>10 Scrivi(‘Errore’);
Finchè x<11
Se x<6 allora Scrivi (“insufficiente”) altrimenti
Se x>=6 o x<7 allora Scrivi (“sufficiente”) altrimenti
Se x>=7 o x<8 allora Scrivi (“discreto”) altrimenti
Se x>=8 allora Scrivi (“buono”) altrimenti
Scrivi (“il voto e’ nullo”);
FINE.
Flow chart del RIPETI
I
O
V
O
F
F V
F V O
F
V
O
F V
O
O
O
Tracing
X
|
5
|
|
|
Output
|
Inserisci la
valutazione (da 0 a 10)
|
Il voto e’
insufficiente
|
|
X
|
-1
|
6
|
|
Output
|
Inserisci la
valutazione (da 0 a 10)
|
Errore
|
Il voto e’ sufficiente
|
Flow Chart del WHILE
O
I
V
O
O
I
F V
O
F V
F V O
F V O
O
O
Pseudocodice del WHILE…DO
INIZIO
Chiedi (“inserisci la valutazione (da 0 a 10));
Leggi (x);
Se“Errore, hai inserito un numero maggiore di 10 o minore di 0”
Mentre voto>10 o voto<0 esegui
Inizio
Scrivi(“Errore, hai inserito un numero maggiore di 10 o minore di 0”);
Scrivi(“Inserisci la valutazione (da 0 a 10)”);
Leggi(x);
Fine;
Inizio
Se voto<6 allora
Scrivi (“insufficiente”);
Se voto <=6 e <7 allora
Scrivi (“sufficiente”);
Se voto <=7 e <8 allora
Scrivi (“discreto”);
SE voto >=8 allora
Scrivi (“buono”);
altrimenti
se x >10 scrivi(“il voto e’ nullo”);
Fine;
FINE.
Tracing
X
|
5
|
|
|
Output
|
Inserisci la
valutazione (da 0 a 10)
|
Il voto e’
insufficiente
|
|
X
|
-1
|
6
|
|
Output
|
Inserisci la
valutazione (da 0 a 10)
|
Errore
|
Il voto e’ sufficiente
|
Programma con le
Procedura
Pseudocodice del RIPETI….FINCHÈ
Procedura leggi;
Inizio
ripeti
Se x>10 allora scrivi(‘errore’);
Scrivi('inserisci la valutazione');
leggi(x);
finchè x<11;
fine;
Procedura voti;
Inizio
Se x<6 allora Scrivi('insufficiente') altrimenti
Se (x>=6) and (x<7) allora Scrivi('sufficiente') altrimenti
Se (x>=7) and (x<8) allora Scrivi('discreto') altrimenti
Se x>=8 allora Scrivi('buono') altrimenti
Scrivi (' il valore immesso non corrisponde a un voto');
fine;
{main program}
Inizio
leggi;
voti;
fine.
Flow chart del RIPETI
Procedura
leggi
Procedura voti
Programma
principale
